SuperHack

home *** CD-ROM | disk | FTP | other *** search

/ SuperHack / SuperHack CD.bin / CODING / VBASIC / AGAVB25.ZIP / VB.ZIP / GTICS.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1996-01-17 | 21.6 KB | 663 lines

VERSION 2.00 Begin Form TicDemo BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Tics" ClientHeight = 5220 ClientLeft = 1845 ClientTop = 2370 ClientWidth = 9015 Height = 5625 Left = 1785 LinkTopic = "Form2" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 5220 ScaleWidth = 9015 Top = 2025 Width = 9135 Begin Frame Frame6 BackColor = &H00C0C0C0& Caption = "Tic Label Properties" Height = 1020 Left = 4545 TabIndex = 4 Top = 3975 Width = 4245 Begin CheckBox Check1 BackColor = &H00C0C0C0& Caption = "TicLabel" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Left = 150 TabIndex = 7 Top = 330 Value = 1 'Checked Width = 1095 End Begin HScrollBar HScroll1 Height = 240 Index = 6 Left = 1530 Max = 140 TabIndex = 8 Top = 600 Width = 2000 End Begin CheckBox Check2 BackColor = &H00C0C0C0& Caption = "TicLabelRotated" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Left = 1260 TabIndex = 10 Top = 330 Width = 2025 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " 0" Height = 195 Index = 6 Left = 3600 TabIndex = 11 Top = 615 Width = 180 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "TicLabelRadius:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 6 Left = 270 TabIndex = 20 Top = 615 Width = 1140 End End Begin Frame Frame5 BackColor = &H00C0C0C0& Caption = "Tic Size Properties" Height = 1170 Left = 4545 TabIndex = 36 Top = 2745 Width = 4245 Begin HScrollBar HScroll1 Height = 240 Index = 5 Left = 1500 Max = 20 TabIndex = 19 Top = 795 Width = 2000 End Begin HScrollBar HScroll1 Height = 240 Index = 3 Left = 1500 Max = 140 TabIndex = 21 Top = 315 Width = 2000 End Begin HScrollBar HScroll1 Height = 240 Index = 4 Left = 1500 Max = 140 TabIndex = 22 Top = 555 Width = 2000 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "TicWidth:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 5 Left = 765 TabIndex = 27 Top = 810 Width = 660 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " 0" Height = 195 Index = 5 Left = 3570 TabIndex = 32 Top = 810 Width = 180 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " 0" Height = 195 Index = 3 Left = 3570 TabIndex = 23 Top = 300 Width = 180 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "TicInnerRadius:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 3 Left = 315 TabIndex = 24 Top = 345 Width = 1110 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " 0" Height = 195 Index = 4 Left = 3570 TabIndex = 25 Top = 540 Width = 180 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "TicOuterRadius:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 4 Left = 300 TabIndex = 26 Top = 570 Width = 1155 End End Begin Frame Frame4 BackColor = &H00C0C0C0& Caption = "Tic Value Properties" Height = 1200 Left = 4545 TabIndex = 35 Top = 1515 Width = 4245 Begin HScrollBar HScroll1 Height = 240 Index = 0 Left = 1470 Max = 100 TabIndex = 39 Top = 300 Width = 2000 End Begin HScrollBar HScroll1 Height = 240 Index = 1 Left = 1470 Max = 100 TabIndex = 38 Top = 540 Width = 2000 End Begin HScrollBar HScroll1 Height = 240 Index = 2 Left = 1470 Max = 100 TabIndex = 37 Top = 780 Width = 2000 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " 0" Height = 195 Index = 0 Left = 3555 TabIndex = 33 Top = 315 Width = 180 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "TicStartValue:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 0 Left = 405 TabIndex = 44 Top = 315 Width = 1020 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "TicStopValue:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 1 Left = 405 TabIndex = 43 Top = 555 Width = 1005 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " 0" Height = 195 Index = 1 Left = 3555 TabIndex = 42 Top = 570 Width = 180 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " 0" Height = 195 Index = 2 Left = 3555 TabIndex = 41 Top = 825 Width = 180 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "TicDeltaValue:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 2 Left = 360 TabIndex = 40 Top = 795 Width = 1035 End End Begin AGAUGE Gauge1 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 2 ' 2 - Inset BevelOuter = 1 ' 1 - Raised BevelWidth = 4 BorderType = 1 ' 1 - Bevel BorderWidth = 2 FontID = 1 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 4935 Left = 90 MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 Shape = "" TabIndex = 34 Top = 60 Value = 0 Width = 4230 XScale = 0 YScale = 0 ZLoad = GTICS.FRX:0000 End Begin Frame Frame3 BackColor = &H00C0C0C0& Caption = "TicColor" Height = 1395 Left = 7620 TabIndex = 3 Top = 60 Width = 1200 Begin Label Colors BackColor = &H00000000& Height = 225 Index = 0 Left = 240 TabIndex = 5 Top = 450 Width = 225 End Begin Label Colors BackColor = &H00808080& Height = 225 Index = 1 Left = 720 TabIndex = 6 Top = 690 Width = 225 End Begin Label Colors BackColor = &H00FFFFFF& Height = 225 Index = 2 Left = 480 TabIndex = 12 Top = 450 Width = 225 End Begin Label Colors BackColor = &H000000FF& Height = 225 Index = 3 Left = 240 TabIndex = 13 Top = 930 Width = 225 End Begin Label Colors BackColor = &H0000FF00& Height = 225 Index = 4 Left = 720 TabIndex = 14 Top = 450 Width = 225 End Begin Label Colors BackColor = &H0000FFFF& Height = 225 Index = 5 Left = 480 TabIndex = 15 Top = 930 Width = 225 End Begin Label Colors BackColor = &H00FF0000& Height = 225 Index = 6 Left = 240 TabIndex = 16 Top = 690 Width = 225 End Begin Label Colors BackColor = &H00FF00FF& Height = 225 Index = 7 Left = 720 TabIndex = 17 Top = 930 Width = 225 End Begin Label Colors BackColor = &H000080FF& Height = 225 Index = 8 Left = 480 TabIndex = 18 Top = 690 Width = 225 End End Begin Frame Frame2 BackColor = &H00C0C0C0& Caption = "Tic Style Property" Height = 1395 Left = 5640 TabIndex = 28 Top = 60 Width = 1935 Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Circle" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 3 Left = 240 TabIndex = 9 Top = 975 Width = 1245 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Diamond" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 2 Left = 240 TabIndex = 31 Top = 750 Width = 1245 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Triangle" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 1 Left = 240 TabIndex = 30 Top = 525 Width = 1245 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Rectangle" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 0 Left = 240 TabIndex = 29 Top = 300 Value = -1 'True Width = 1245 End End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "Tic ID" Height = 1395 Left = 4560 TabIndex = 0 Top = 60 Width = 1035 Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "1" Height = 255 Index = 1 Left = 240 TabIndex = 2 Top = 720 Width = 615 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "0" Height = 255 Index = 0 Left = 240 TabIndex = 1 Top = 480 Value = -1 'True Width = 615 End End Sub Check1_Click () gauge1.TicLabel = check1 End Sub Sub Check2_Click () gauge1.TicLabelRotated = check2 End Sub Sub Check3_Click () gauge1.TicFloat = check3 End Sub Sub Colors_Click (index As Integer) gauge1.TicColor = colors(index).BackColor End Sub Sub Form_Load () hscroll1(0) = gauge1.TicStartValue hscroll1(1) = gauge1.TicStopValue hscroll1(2) = gauge1.TicDeltaValue hscroll1(3) = gauge1.TicInnerRadius * 100 hscroll1(4) = gauge1.TicOuterRadius * 100 hscroll1(5) = gauge1.TicWidth * 100 hscroll1(6) = gauge1.TicLabelRadius * 100 End Sub Sub HScroll1_Change (index As Integer) Select Case index Case 0 gauge1.TicStartValue = hscroll1(0) label2(0) = hscroll1(0) Case 1 gauge1.TicStopValue = hscroll1(1) label2(1) = hscroll1(1) Case 2 gauge1.TicDeltaValue = hscroll1(2) label2(2) = hscroll1(2) Case 3 gauge1.TicInnerRadius = hscroll1(3) / 100 label2(3) = hscroll1(3) / 100 Case 4 gauge1.TicOuterRadius = hscroll1(4) / 100 label2(4) = hscroll1(4) / 100 Case 5 gauge1.TicWidth = hscroll1(5) / 100 label2(5) = hscroll1(5) / 100 Case 6 gauge1.TicLabelRadius = hscroll1(6) / 100 label2(6) = hscroll1(6) / 100 Case 7 gauge1.TicFloatOffset = hscroll1(7) label2(7) = hscroll1(7) End Select End Sub Sub HScroll1_Scroll (index As Integer) Select Case index Case 0 gauge1.TicStartValue = hscroll1(0) label2(0) = hscroll1(0) Case 1 gauge1.TicStopValue = hscroll1(1) label2(1) = hscroll1(1) Case 2 gauge1.TicDeltaValue = hscroll1(2) label2(2) = hscroll1(2) Case 3 gauge1.TicInnerRadius = hscroll1(3) / 100 label2(3) = hscroll1(3) / 100 Case 4 gauge1.TicOuterRadius = hscroll1(4) / 100 label2(4) = hscroll1(4) / 100 Case 5 gauge1.TicWidth = hscroll1(5) / 100 label2(5) = hscroll1(5) / 100 Case 6 gauge1.TicLabelRadius = hscroll1(6) / 100 label2(6) = hscroll1(6) / 100 Case 7 gauge1.TicFloatOffset = hscroll1(7) label2(7) = hscroll1(7) End Select End Sub Sub Option1_Click (index As Integer) gauge1.TicID = index hscroll1(0) = gauge1.TicStartValue hscroll1(1) = gauge1.TicStopValue hscroll1(2) = gauge1.TicDeltaValue hscroll1(3) = gauge1.TicInnerRadius * 100 hscroll1(4) = gauge1.TicOuterRadius * 100 hscroll1(5) = gauge1.TicWidth * 100 hscroll1(6) = gauge1.TicLabelRadius * 100 option2(gauge1.TicStyle) = True check1 = -gauge1.TicLabel check2 = -gauge1.TicLabelRotated check3 = -gauge1.TicFloat End Sub Sub Option2_Click (index As Integer) gauge1.TicStyle = index End Sub